4D Doc Center : CT SET FILLS ATTRIBUTES

4D Chart v13

CT SET FILLS ATTRIBUTES


CT SET FILLS ATTRIBUTES ( area ; objetos ; motivos ; colores )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Chart
objetos	Array entero largo	Lista de números de objetos
motivos	Array entero	Lista de números de motivos
colores	Array entero largo	Lista de valores de colores

Descripción

El comando CT SET FILLS ATTRIBUTES es idéntico al comando CT SET FILL ATTRIBUTES, excepto que aplica a una lista de objetos. En el parámetro objetos, pase un array de tipo entero largo con la lista de los números de objetos para los cuales quiere definir los atributos de relleno.

Los parámetros motivos y colores son arrays que contienen los atributos correspondientes.

Para mayor información, consulte el comando CT SET FILL ATTRIBUTES.

Ejemplo

En este ejemplo, se tiene un formulario que contiene un área 4D Chart llamada vct. Usted quiere crear simultáneamente 100 rectángulos utilizando líneas y motivos específico. En lugar de llamar 100 veces los comandos CT SET LINE ATTRIBUTES y CT SET FILL ATTRIBUTES, usted llena los arrays y define los atributos de los rectángulos en una llamada.

Este es el método del formulario:

 If(Form event=On Load)

    ARRAY LONGINT($ids;100)

    ARRAY INTEGER($pat;100)

    ARRAY INTEGER($pat2;100)

    ARRAY LONGINT($color;100)

    ARRAY LONGINT($color2;100)

    ARRAY LONGINT($ln;100) `or ARRAY REAL ($ln;100)

    CT SELECT(vct;-1;1)

    CT DO COMMAND(vct;2006)

    For($i;1;100)

       $ids{$i}:=CT Draw rectangle(vCT;40+($i*10);40;40+(($i+1)*10)-2;60;0)

       $pat{$i}:=1+($i%30)

       $pat2{$i}:=1+($i%15)

       $color{$i}:=CT Index to color($i)

       $color2{$i}:=CT Index to color(100-$i)

       $ln{$i}:=1+$i%4

    End for

    CT SET FILL ATTRIBUTES(vct;$ids;$pat;$color)

    CT SET LINE ATTRIBUTES(vct;$ids;$pat2;$color2;$ln)

 End if